كيف أستعمل بيانات من طرف المستخدم للاتصال بقاعدة البيانات Sql على Vb.net ؟

أريد من المستخدم أن يدخل الاسم المستعار وكلمة المرور ليتمكّن من الاتصال بقاعدة البيانات على Sql، هذه محاولتي لفعل ذلك:

Dim str As String = "Data Source=DESKTOP;uid=ID;pwd=PASS;database=DB"
Dim conn As New SqlConnection(str)
Private Sub btnconnect_Click(sender As Object, e As EventArgs) Handles btnconnect.Click
    PW = txtadminpass.Text

    Try
        conn.Open()
        conn.Close()
        MsgBox("GOOD")
    Catch ex As Exception
        MsgBox(ex.Message)

    End Try
End Sub

أين يكمن الخطأ؟ وكيف يمكنني حله؟