Expression expected error

[curiousman]

Hi,

I have a source code giving "expression expected" error. A small piece of this code below and whole source code is at the attachment. How can I fix this error? Thanks everybody.

-------------------------
Private Sub ConnectToSQL()

Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim Password As String
Dim Password2 As String
Dim userName As String

Try
If (EXPRESSION EXPECTED)
'change the data source and initial catalog according to your sql server engine and data base
con.ConnectionString = "Data Source = Localhost; Initial Catalog = hdur750; Integrated Security = True"

-----------------------------------------