VB2008与SQL数据库配置窗体设计?

IO
Public Class frmConnection
Private Sub Button1_Click(ByVal sender As System.Text = ".SqlClient
Imports System, ByVal e As System.Close()
End If
End Sub
End Class
简单写了一下.EventArgs) Handles Button1Imports System;)
Dim str_con As String = sr.ReadLine
sr.Show()
Catch ex As Exception
frmConnection; Then
Dim sw As New StreamWriter(".Data.txt".Click
If Not TextBox1.ShowDialog()
End Try
End Sub
End Class
=============================
Imports System;con.Open()
frmLogin;"con.Text)
sw.Load
Dim sr As New StreamReader(".EventArgs) Handles MyBase, ByVal e As System.Close()
Dim mycon As New SqlConnection(str_con)
Try
mycon.txt".Write(TextBox1;, False)
sw.Object.Object.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System

Open()基本思路：
bool canConnectioned=true;}
if(canConnectioned){showLogin();
DBconnnection conn=new DBconnnection();}
else(showSetupConn();
try{conn;}
catch{canConnectioned=false