can anyone do it for me

[Gary_gill]

With store_db_connection
' Testing using longo-test
'ServerName = "001.001.1.01"
If Val(store_id) = 10 Then
ServerName = "001.001.01.01"
Else
ServerName = "192.168." & Val(store_id) & ".16"
End If
.Provider = "sqloledb"
.Properties("Data Source").Value = ServerName
.Properties("Initial Catalog").Value = DatabaseName
.Properties("User ID").Value = UserName
.Properties("Password").Value = Password
.Open
end with


can any one convert this from vb6 to vb.net for me.specially .property block.how can i write that one in vb.net.and the values of databasename,username,password r stored in module
i 'll highly appriciate it