Stuff

Private Sub CreateDataBase()
        Dim strSQL As String = "if not exists (select * from master..sysdatabases where name = 'TWEC') " & _
                               "create database TWEC"
        Dim conn As New SqlClient.SqlConnection(My.Settings.TWECConnectionString)
        Dim cmd As New SqlClient.SqlCommand(strSQL, conn)

        cmd.CommandType = CommandType.Text

        Try
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            Me.EventLog.WriteEntry("Error Creating TWEC database for the first time." & vbCrLf & vbCrLf & _
                                    "         Error: " & ex.Message)
        Finally
            conn.Dispose()
            cmd.Dispose()
        End Try
    End Sub